home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / fdical.zip / HELP.PRG < prev    next >
Text File  |  1993-01-04  |  675b  |  40 lines
  1. *  HELP.PRG
  2. PARAM call_prg,line_number,input_var
  3. *  return immediately if HELP is calling on itself!
  4.  
  5. IF Call_Prg = [HELP]
  6.    RETURN
  7. ENDIF
  8.  
  9.  
  10. PRIVATE oldarea,;
  11.         wtitle,;
  12.         wfields,;
  13.         mtitle,;
  14.         top_row,;
  15.         left_col,;
  16.         bot_row,;
  17.         right_col,;
  18.         group_key,;
  19.         group,;
  20.         key_field,;
  21.         oldorder
  22.  
  23. STORE [] TO  group_key,group
  24.  
  25. oldarea = SELE()
  26. DO CASE
  27.    CASE input_var = [MFROM] .AND. TYPE(input_var) = [D]
  28.      DO cal_help WITH [mfrom], [mthru]
  29.      KEYBOARD CHR(13)
  30.  
  31.    OTHERWISE
  32.      DO libhelp WITH call_prg, input_var
  33. ENDCASE
  34.  
  35. SELE (oldarea)
  36. RETURN
  37. ***   eof ****
  38.  
  39.  
  40.